home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1992
/
number2
/
iswind3.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-09
|
430b
|
22 lines
function IsWindows3 : Boolean; Assembler;
asm
mov ax,1600h
int 2Fh
cmp al,1
jbe @@CheckRealOrStd
cmp al,80h
jae @@CheckRealOrStd
mov al,1
jmp @@ExitPoint
@@CheckRealOrStd:
mov ax,4680h
int 2Fh
or ax,ax
jnz @@NoWin
mov al,1
jmp @@ExitPoint
@@NoWin:
mov al,0
@@ExitPoint:
end;